home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir40 / pc37042.zip / CPY / IHAPIE.CPY < prev    next >
Text File  |  1988-01-05  |  1KB  |  29 lines

  1. *
  2. * IHAPIE - I HAD A PROGRAM INTERRUPTION ELEMENT DSECT
  3. *
  4. *  THIS CONTROL BLOCK IS BUILD IN DYNAMIC MEMORY BY SPIE SVC 14
  5. *  AND IS USED TO STORE PSW AND REGISTERS AT INTERRUPT AND THEN
  6. *  TRANSFER CONTROL TO SPIE EXIT WITH REGS AS FOLLOWS:
  7. *
  8. *    R0 = INSTRUCTION LENGTH IN HIGH 16 BITS, INTERRUPT CODE IN LOW 16
  9. *    R1 = PSW ADDRESS AT INTERRUPT
  10. *    R2 = PIE CONTROL BLOCK
  11. *
  12. IHAPIE   DSECT
  13. PIEPICA  DS    A   ADDRESS OF CURRENT PICA (SEE BELOW)
  14. PIEPSW   DS    XL8 OLD PSW STORED AT PROGRAM INTERRUPT TIME
  15. PIEGR14  DS    F   R14 AT PROGRAM INTERRUPT
  16. PIEGR15  DS    F   R15 AT PROGRAM INTERRUPT
  17. PIEGR0   DS    F   R0  AT PROGRAM INTERRUPT
  18. PIEGR1   DS    F   R1  AT PROGRAM INTERRUPT
  19. PIEGR2   DS    F   R2  AT PROGRAM INTERRUPT
  20. *
  21. * PROGRAM INTERRUPT CONTROL AREA (POINTED TO BY PIEPICA AND BUILT
  22. *                                 DIRECTLY FOLLOWING PIE BY PC/370
  23. *                                 SPIE SVC)
  24. *
  25. PICEXT   DS    A   ADDRESS OF USER PROGRAM INTERRUPTION EXIT ROUTINE
  26. PICTMK   DS    F   MASK BITS  (NOT USED CURRENTLY - ALL PROGRAM
  27. *                              INTERRUPTS ARE HANDLED BY EXIT)
  28. *
  29.